With Grid1
	.BeginUpdate 
	With .Columns.Add("DropDownList").Editor
		.EditType = DropDownListType
		.AddItem 1,"One"
		.AddItem 2,"Two"
		.AddItem 3,"Three"
	End With
	With .Items
		.AddItem Grid1.Columns.Item(0).Editor.FindItem(">ONE")
		.AddItem Grid1.Columns.Item(0).Editor.FindItem(">ThRee")
		.AddItem Grid1.Columns.Item(0).Editor.FindItem("ONE")
		.AddItem Grid1.Columns.Item(0).Editor.FindItem(">tWo")
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.DrawGridLines = exHLines
	With .Columns.Add("Default")
		.Def(exCellValueFormat) = 1
		.Def(exCellSingleLine) = False
	End With
	With .Items
		.AddItem "This is the first line.<br>This is the second line."
		.AddItem "This is the first line.<br>This is the second line."
		.AddItem "This is the first line.<br>This is the second line."
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.DrawGridLines = exHLines
	.Columns.Add "Default"
	With .Items
		.CellValueFormat(.AddItem("This is the first line.<br>This is the second line."),0) = exHTML
		h = .AddItem("<b>This is the first line.<br>This is the second line.</b>")
		.CellValueFormat(h,0) = exHTML
		.CellSingleLine(h,0) = exCaptionWordWrap
		.CellValueFormat(.AddItem("This is the first line.<br>This is the second line."),0) = exHTML
	End With
	.EndUpdate 
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Grid1_Change(ByVal Item As EXGRIDLibCtl.HITEM,ByVal ColIndex As Long,NewValue As Variant)
	With Grid1
		With .Items
			.EnableItem(.ItemByIndex(1)) = NewValue
		End With
	End With
End Sub

With Grid1
	.FreezeEvents True
	.BeginUpdate 
	.ScrollBySingleLine = True
	.DrawGridLines = exRowLines
	.Columns.Add "Q"
	.Columns.Add "A"
	With .Items
		h1 = .AddItem("What's your gender?")
		With .CellEditor(h1,1)
			.EditType = DropDownListType
			.AddItem 1,"Male"
			.AddItem 0,"Female"
		End With
		.CellValue(h1,1) = 1
		h2 = .AddItem("What's pet name?")
		.CellValue(h2,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
		.CellSingleLine(h2,1) = exCaptionWordWrap
	End With
	.EndUpdate 
	.FreezeEvents False
End With

With Grid1
	.BeginUpdate 
	.ScrollBySingleLine = True
	.DrawGridLines = exRowLines
	.Columns.Add "Q"
	With .Columns.Add("A")
		.Def(exCellSingleLine) = False
		With .Editor
			.EditType = MemoType
			.Appearance = SingleApp
		End With
	End With
	With .Items
		h1 = .AddItem("What's name?")
		.CellValue(h1,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
		h2 = .AddItem("What's your pet name?")
		.CellValue(h2,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ScrollBySingleLine = True
	.DrawGridLines = exRowLines
	.Columns.Add "Q"
	.Columns.Add "A"
	With .Items
		h1 = .AddItem("What's name?")
		.CellValue(h1,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
		h2 = .AddItem("What's your pet name?")
		With .CellEditor(h2,1)
			.EditType = MemoType
			.Appearance = SingleApp
		End With
		.CellValue(h2,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
		.CellSingleLine(h2,1) = exCaptionWordWrap
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.BackColor = RGB(240,240,240)
	.ConditionalFormats.Add("1 = 1").Bold = True
	.Columns.Add("Type").Alignment = RightAlignment
	With .Items
		h = .AddItem("1. A ProgID such as ""MSCAL.Calendar.7""")
		.ItemDivider(h) = 0
		hX = .InsertControlItem(0,"MSCAL.Calendar","")
		.ItemObject(hX).BackColor = RGB(255,255,255)
		h = .AddItem("2. A CLSID such as ""{0036F83C-D892-4B7B-AA0B-BEDD8D16A738}""")
		.ItemDivider(h) = 0
		hX = .InsertControlItem(0,"{0036F83C-D892-4B7B-AA0B-BEDD8D16A738}","")
		h = .AddItem("3. A URL such as ""http://www.exontrol.com""")
		.ItemDivider(h) = 0
		hX = .InsertControlItem(0,"http://www.exontrol.com","")
		h = .AddItem("4. A reference to an Active document such as ""file://\\Documents\MyDoc.doc""")
		.ItemDivider(h) = 0
		hX = .InsertControlItem(0,"file://C:\empesting.xml","")
		h = .AddItem("5.A fragment of HTML such as ""MSHTML:<HTML><BODY>This is a line of text</BODY></HTML>""")
		.ItemDivider(h) = 0
		hX = .InsertControlItem(0,"MSHTML:<HTML><BODY>This is a <b>line of</b> text</BODY></HTML>","")
		.ItemHeight(hX) = 56
		h = .AddItem("6.Anything, if it is preffixed by ""A2X:""")
		.ItemDivider(h) = 0
		hX = .InsertControlItem(0,"A2X:TOC24.Toc24Ctrl.1","")
	End With
	.EndUpdate 
End With

' UserEditorOleEvent event - Occurs when an user editor fires an event.
Private Sub Grid1_UserEditorOleEvent(ByVal Object As Object,ByVal Ev As EXGRIDLibCtl.IOleEvent,CloseEditor As Boolean,ByVal Item As EXGRIDLibCtl.HITEM,ByVal ColIndex As Long)
	With Grid1
		Debug.Print( Ev )
	End With
End Sub

With Grid1
	.BeginUpdate 
	.DrawGridLines = exAllLines
	.DefaultItemHeight = 32
	With .Columns.Add("RICHTEXT").Editor
		.EditType = UserEditorType
		.UserEditor "RICHTEXT.RichtextCtrl",""
		With .UserEditorObject
			.AutoVerbMenu = True
			.TextRTF = "{\rtf1\ansi{\fonttbl\f0\fswiss Helvetica;}\f0\pard\r\nThis is some {\b bold} text.\par\r\n}"
		End With
	End With
	With .Items
		.AddItem "RICHTEXT.RichtextCtrl"
	End With
	.EndUpdate 
End With

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub Grid1_DblClick(Shift As Integer,X As Single,Y As Single)
	With Grid1
		h = .ItemFromPoint(-1,-1,c,hit)
		Debug.Print( .Items.CellValue(h,c) )
	End With
End Sub

With Grid1
	.BeginUpdate 
	.HeaderAppearance = Etched
	.DrawGridLines = exRowLines
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		.CellValue(.AddItem("Item 1"),1) = "Item 2"
		.CellValue(.AddItem("Item 3"),1) = "Item 4"
		.CellValue(.AddItem("Item 5"),1) = "Item 6"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ScrollBySingleLine = False
	.Columns.Add "Date"
	With .Items
		.ItemDivider(.AddItem("Different Date Formats")) = 0
		.FormatCell(.AddItem(#12/1/1971#),0) = "((shortdateF(value) mid 4) left 2) + `/` + (shortdateF (value) left 2) + `/` + (shortdateF (value) right 4)"
		.FormatCell(.AddItem(#12/1/1971#),0) = "(1 array (0:=(shortdateF(value) split `/`))) + `/` + (0 array (=:0) ) + `/` + (2 array (=:0) )"
		.FormatCell(.AddItem(#12/1/1971#),0) = "((`0` + day(value) ) right 2) + `/` + ((`0` + month(value) ) right 2) + `/` + year(value)"
		.FormatCell(.AddItem(#12/1/1971#),0) = "day(value) + `/` + month(value) + `/` + year(value)"
		.FormatCell(.AddItem(#12/1/1971#),0) = "year(value) + ` - ` + day(value) + ` - ` + month(value)"
		h = .AddItem(#12/1/1971#)
		.ItemHeight(h) = 24
		.CellValueFormat(h,0) = exHTML
		.FormatCell(h,0) = "`<b>` + year(value) + `</b><off -4> ` + day(value) + ` - ` + month(value)"
		.ItemDivider(.AddItem("Predefined Date Formats")) = 0
		.FormatCell(.AddItem(#12/1/1971#),0) = "value"
		.FormatCell(.AddItem(#12/1/1971#),0) = "shortdateF(value)"
		.FormatCell(.AddItem(#12/1/1971#),0) = "shortdate(value)"
		.FormatCell(.AddItem(#12/1/1971#),0) = "longdate(value)"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ScrollBySingleLine = False
	.DrawGridLines = exVLines
	.ColumnsAllowSizing = True
	.Columns.Add("Column A (cont)").Def(exColumnResizeContiguously) = True
	.Columns.Add "Column 1"
	.Columns.Add("Column B (cont)").Def(exColumnResizeContiguously) = True
	.Columns.Add "Column 2"
	.EndUpdate 
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Grid1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With Grid1
		i = .ItemFromPoint(0,-1,c,hit)
		Debug.Print( "Column" )
		Debug.Print( c )
	End With
End Sub

With Grid1
	.BeginUpdate 
	.DrawGridLines = exVLines
	.Columns.Add "Column 0"
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	.EndUpdate 
End With

' Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
Private Sub Grid1_Click()
	With Grid1
		i = .ItemFromPoint(0,-1,c,hit)
		With .Items
			.CellValue(.AddItem(i),1) = c
		End With
	End With
End Sub

With Grid1
	.BeginUpdate 
	.Columns.Add "Number of Items to Add"
	.Columns.Add "Click on Column"
	.EndUpdate 
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Grid1_AddItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		Debug.Print( "AddItem event is fired only if FreezeEvents(False) is called" )
	End With
End Sub

With Grid1
	.FreezeEvents True
	.BeginUpdate 
	.DefaultItemHeight = 24
	.Columns.Add "Task"
	With .Items
		h1 = .AddItem("Task 1")
		h2 = .AddItem("Task 2")
	End With
	.EndUpdate 
	.FreezeEvents False
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.Indent = 16
	.LinesAtRoot = exLinesAtRoot
	.FilterBarPromptVisible = exFilterBarPromptVisible
	.FilterBarPromptPattern = "Nancy"
	.FilterInclude = exItemsWithChilds
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .InsertItem(h0,,"Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		h0 = .InsertItem(h0,,"Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .InsertItem(h0,,"Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		.ExpandItem(0) = True
	End With
	.ApplyFilter 
	.EndUpdate 
End With

' CellStateChanging event - Fired before cell's state is about to be changed.
Private Sub Grid1_CellStateChanging(ByVal Item As EXGRIDLibCtl.HITEM,ByVal ColIndex As Long,NewState As Long)
	With Grid1
		With .Items
			NewState = .CellState(Item,ColIndex)
		End With
	End With
End Sub

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	With .Columns.Add("P1")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Columns.Add("P2")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("Date")
		.SortType = SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
	End With
	With .Columns.Add("DateTime")
		.SortType = SortDateTime
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
	End With
	With .Columns.Add("Time")
		.SortType = SortTime
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
		.FormatColumn = "time(value)"
	End With
	With .Columns.Add("Numeric")
		.SortType = SortNumeric
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
	End With
	With .Columns.Add("String")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
	End With
	With .Items
		h = .AddItem(#1/27/2010#)
		.CellValue(h,1) = #1/27/2010 10:00:00 AM#
		.CellValue(h,2) = .CellValue(h,1)
		.CellValue(h,3) = 1
		.CellValue(h,4) = .CellValue(h,3)
		h = .AddItem(#1/27/2011#)
		.CellValue(h,1) = #1/27/2011 9:00:00 AM#
		.CellValue(h,2) = .CellValue(h,1)
		.CellValue(h,3) = 11
		.CellValue(h,4) = .CellValue(h,3)
		h = .AddItem(#11/2/2010#)
		.CellValue(h,1) = #11/2/2010 9:00:00 AM#
		.CellValue(h,2) = .CellValue(h,1)
		.CellValue(h,3) = 2
		.CellValue(h,4) = .CellValue(h,3)
	End With
	.Columns.Item("DateTime").DisplayFilterDate = False
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	With .Columns.Add("P1")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Columns.Add("P2")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
		.FormatColumn = "1 index ``"
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child A"
		.InsertItem h,,"Child B"
		.InsertItem h,,"Child A"
		.InsertItem h,,"Child B"
		.AddItem "Root"
		.AddItem "Root"
	End With
	.SingleSort = False
	.Layout = "multiplesort=""C0:1 C1:2"";collapse="""""
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.DrawGridLines = exRowLines
	With .Columns
		.Add("Value").Width = 24
		.Add("Type").FormatColumn = "type(%0)"
		.Add("TypeAsString").FormatColumn = "(0 := type(%0)) array (`empty`, `null`, `short`, `long`, `float`, `double`, `currency`, `date`, `string`, `object`, `error`, `b" & _
"oolean`, `variant`, `any`, `reserved`, `decimal`, `char`, `byte`, `unsigned short`, `unsigned long`, `long on 64 bits`)"
		.Add("Length").FormatColumn = "len(%0)"
	End With
	With .Items
		.AddItem 
		.AddItem ""
		.CellValue(.AddItem(),0) = Grid1
		.CellValue(.AddItem(),0) = True
		.CellValue(.AddItem(),0) = -1
		.CellValue(.AddItem(),0) = -1
		.CellValue(.AddItem(),0) = #1/1/2001#
	End With
	.EndUpdate 
End With

' OLEStartDrag event - Occurs when the OLEDrag method is called.
Private Sub Grid1_OLEStartDrag(ByVal Data As EXGRIDLibCtl.IExDataObject,AllowedEffects As Long)
	' Data.SetData("data to drag")
	With Grid1
		AllowedEffects = 1
	End With
End Sub

With Grid1
	.OLEDropMode = exOLEDropManual
	.Background(exDragDropAfter) = RGB(255,255,255)
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
	End With
End With

With Grid1
	.BeginUpdate 
	.ShowFocusRect = False
	With .Columns.Add("C1")
		.AllowSizing = False
		.Width = 18
		.Editor.EditType = CheckValueType
	End With
	.Columns.Add "C2"
	With .Items
		.CellValue(.AddItem(0),1) = "Item 1"
		.CellValue(.AddItem(-1),1) = "Item 2"
		.CellValue(.AddItem(0),1) = "Item 3"
	End With
	.ReadOnly = exReadOnly
	.Columns.Item(0).Editor.Option(exCheckValue2) = 2
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ShowFocusRect = False
	With .Columns.Add("C1")
		.AllowSizing = False
		.Width = 18
		With .Editor
			.EditType = CheckValueType
			.Option(exCheckValue2) = 1
		End With
	End With
	.Columns.Add "C2"
	With .Items
		.CellValue(.AddItem(0),1) = "Item 1"
		.CellValue(.AddItem(-1),1) = "Item 2"
		.CellValue(.AddItem(0),1) = "Item 3"
	End With
	.ReadOnly = exReadOnly
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns
		.Add("C1").Def(exCellHasCheckBox) = True
		.Add("C2").FormatColumn = "1 index `A-Z`"
		.Add("C3").FormatColumn = "100 index ``"
	End With
	With .Items
		.AddItem "Item 1"
		.CellState(.AddItem("Item 2")) = 1
		.CellState(.AddItem("Item 3")) = 1
	End With
	.EndUpdate 
	Debug.Print( "Export CSV Checked Items Only:" )
	Debug.Print( .Export("","chk") )
End With

With Grid1
	.BeginUpdate 
	With .Columns
		.Add "C1"
		With .Add("C2")
			.FormatColumn = "1 index `A-Z`"
			.Visible = False
		End With
		With .Add("C3")
			.FormatColumn = "100 index ``"
			.Visible = False
		End With
	End With
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
	End With
	.EndUpdate 
	Debug.Print( "Export CSV Hidden Columns (1,2):" )
	Debug.Print( .Export("","|1,2") )
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.DrawGridLines = exRowLines
	.AutoDrag = exAutoDragPositionAny
	.HasLines = exSolidLine
	.Indent = 16
	.MarkSearchColumn = False
	With .Columns
		With .Add("")
			.Def(exCellValueFormat) = 1
			.FormatColumn = "((1:=(0 :=(1 rpos '.|A-Z||a-z|')) rfind `.`) < 0 ? `<b>` + =:0 + `` :  (=:0 mid (1 + 1 + =:1) )  + `)` ) + ` ` + value"
		End With
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child"
		hChild = .InsertItem(h,,"Child")
		.InsertItem hChild,,"Child"
		.InsertItem hChild,,"Child"
		.InsertItem hChild,,"Child"
		.InsertItem h,,"Child"
		.ExpandItem(0) = True
		h = .AddItem("Root")
		.InsertItem h,,"Child"
		hChild = .InsertItem(h,,"Child")
		.CellState(hChild,0) = 1
		.InsertItem hChild,,"Child"
		.InsertItem hChild,,"Child"
		.InsertItem hChild,,"Child"
		.InsertItem h,,"Child"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.GridLineColor = RGB(190,190,190)
	.DrawGridLines = exRowLines
	.AutoDrag = exAutoDragPositionAny
	.HasLines = exSolidLine
	.Indent = 16
	With .Columns
		.Add "Default"
		With .Add("")
			.Def(exCellValueFormat) = 1
			.Def(exCellPaddingRight) = 4
			.AllowSizing = False
			.Width = 36
			.Position = 0
			.FormatColumn = "(1:=(0 :=(1 rpos '.|A-Z||a-z|')) rfind `.`) < 0 ? `<b>` + =:0 : (`............` left 2 * (=:0 count `.`)) + (=:0 mid (1 + 1 + =" & _
":1) ) "
		End With
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child"
		hChild = .InsertItem(h,,"Child")
		.InsertItem hChild,,"Child"
		.InsertItem hChild,,"Child"
		.InsertItem hChild,,"Child"
		.InsertItem h,,"Child"
		.ExpandItem(0) = True
		h = .AddItem("Root")
		.InsertItem h,,"Child"
		hChild = .InsertItem(h,,"Child")
		.CellState(hChild,0) = 1
		.InsertItem hChild,,"Child"
		.InsertItem hChild,,"Child"
		.InsertItem hChild,,"Child"
		.InsertItem h,,"Child"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.DrawGridLines = exRowLines
	.AutoDrag = exAutoDragPositionAny
	.HasLines = exSolidLine
	.Indent = 16
	With .Columns
		.Add "Default"
		With .Add("")
			.Def(exCellValueFormat) = 1
			.Def(exCellPaddingRight) = 4
			.Alignment = RightAlignment
			.AllowSizing = False
			.Width = 24
			.Position = 0
			.FormatColumn = "(1:=(0 :=(1 rpos '.|A-Z||a-z|')) rfind `.`) < 0 ? `<b>` + =:0 : `<i>` + (=:0 mid (1 + 1 + =:1) ) "
		End With
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child"
		hChild = .InsertItem(h,,"Child")
		.InsertItem hChild,,"Child"
		.InsertItem hChild,,"Child"
		.InsertItem hChild,,"Child"
		.InsertItem h,,"Child"
		.ExpandItem(0) = True
		h = .AddItem("Root")
		.InsertItem h,,"Child"
		hChild = .InsertItem(h,,"Child")
		.CellState(hChild,0) = 1
		.InsertItem hChild,,"Child"
		.InsertItem hChild,,"Child"
		.InsertItem hChild,,"Child"
		.InsertItem h,,"Child"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SortBarHeight = 0
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.Layout = "multiplesort=""C1:2"""
	.EndUpdate 
End With

' Sort event - Fired when the control sorts a column.
Private Sub Grid1_Sort()
	With Grid1
		Debug.Print( "Sort" )
		With .Items
			.ItemPosition(.ItemByIndex(1)) = 0
			.ItemPosition(.ItemByIndex(0)) = 1
		End With
	End With
End Sub

With Grid1
	.BeginUpdate 
	.SingleSort = False
	.SortOnClick = exUserSort
	With .Columns
		.Add("Index").FormatColumn = "0 index ``"
		.Add "Data 1"
		.Add "Data 2"
	End With
	With .Items
		h = .AddItem(0)
		.CellValue(h,1) = 2
		.CellValue(h,2) = 3
		h = .AddItem(4)
		.CellValue(h,1) = 5
		.CellValue(h,2) = 6
		h = .AddItem(7)
		.CellValue(h,1) = 8
		.CellValue(h,2) = 9
	End With
	.Layout = "multiplesort=""C1:1 C2:2"""
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.TreeColumnIndex = -1
	.DrawGridLines = exRowLines
	With .Columns.Add("Default")
		.Def(exCellHasCheckBox) = True
	End With
	With .Items
		.CellHAlignment(.AddItem("all-left"),0) = LeftAlignment
		.CellHAlignment(.AddItem("all-center"),0) = CenterAlignment
		.CellHAlignment(.AddItem("all-right"),0) = RightAlignment
		h = .AddItem("left<c>center<r>right")
		.CellValueFormat(h,0) = exHTML
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns
		With .Add("MultipleLine")
			.Width = 32
			.Def(exCellSingleLine) = False
			.Def(exColumnResizeContiguously) = True
		End With
		With .Add("SingleLine")
			.Def(exCellSingleLine) = False
		End With
	End With
	With .Items
		.CellValue(.AddItem("This is a bit of long text that should break the line"),1) = "This is a bit of long text that should break the line"
	End With
	.EndUpdate 
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Grid1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With Grid1
		With .Items
			Debug.Print( .CellCaption(Grid1.ItemFromPoint(-1,-1,c,hit),"Position") )
		End With
	End With
End Sub

With Grid1
	.BeginUpdate 
	.BackColorAlternate = RGB(240,240,240)
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add("Def").DisplayFilterButton = True
	With .Items
		h = .AddItem("Root")
		.InsertItem .InsertItem(h,,"Child 1"),,"Sub-Child 1"
		.InsertItem .InsertItem(h,,"Child 2"),,"Sub-Child 2"
	End With
	.PutItems .GetItems(-1)
	.PutItems .GetItems(-1)
	.PutItems .GetItems(-1)
	With .Columns.Add("Position")
		.FormatColumn = "1 apos ``"
		.Visible = False
	End With
	.EndUpdate 
End With

' UserEditorClose event - Fired the user editor is about to be opened.
Private Sub Grid1_UserEditorClose(ByVal Object As Object,ByVal Item As EXGRIDLibCtl.HITEM,ByVal ColIndex As Long)
	' Items.CellValue(Item,ColIndex) = Object.Value
End Sub

' UserEditorOleEvent event - Occurs when an user editor fires an event.
Private Sub Grid1_UserEditorOleEvent(ByVal Object As Object,ByVal Ev As EXGRIDLibCtl.IOleEvent,CloseEditor As Boolean,ByVal Item As EXGRIDLibCtl.HITEM,ByVal ColIndex As Long)
	With Grid1
		Debug.Print( Ev )
	End With
End Sub

' UserEditorOpen event - Occurs when an user editor is about to be opened.
Private Sub Grid1_UserEditorOpen(ByVal Object As Object,ByVal Item As EXGRIDLibCtl.HITEM,ByVal ColIndex As Long)
	' Object.Value = Me.Items.CellValue(Item,ColIndex)
End Sub

With Grid1
	.BeginUpdate 
	With .Columns.Add("Exontrol.ComboBox").Editor
		.EditType = UserEditorType
		.UserEditor "Exontrol.ComboBox",""
		With .UserEditorObject
			.BeginUpdate 
			.Style = 2
			.ColumnAutoResize = False
			Set rs = CreateObject("ADOR.Recordset")
			With rs
				.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
			End With
			.DataSource = rs
			.Alignment = 0
			.IntegralHeight = True
			.MinHeightList = 128
			.MinWidthList = 648
			.HeaderHeight = 36
			.AllowSizeGrip = True
			.SingleEdit = True
			.LabelColumnIndex = 7
			.SearchColumnIndex = 0
			With .Columns.Item(0)
				.HeaderBold = True
				.HTMLCaption = "OrderID<br><fgcolor=808080>(search)"
			End With
			With .Columns.Item(7)
				.HeaderBold = True
				.HTMLCaption = "ShipName<br><fgcolor=808080>(display)"
				.Width = 128
			End With
			.UseTabKey = False
			.EndUpdate 
		End With
	End With
	.DrawGridLines = exRowLines
	.DefaultItemHeight = 21
	With .Items
		.CellEditorVisible(.AddItem(10248),0) = exEditorVisible
		.CellEditorVisible(.AddItem(10249),0) = exEditorVisible
		.CellEditorVisible(.AddItem(10250),0) = exEditorVisible
	End With
	.EndUpdate 
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Grid1_AddItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		With .Items
			.CellData(Item,1) = .CellCaption(Item,1)
		End With
	End With
End Sub

With Grid1
	.BeginUpdate 
	.DrawGridLines = exAllLines
	.ColumnAutoResize = True
	.ShowFocusRect = False
	With .Columns.Add("Next")
		.Def(exCellPaddingLeft) = 4
		.Def(exHeaderPaddingLeft) = 4
	End With
	With .Columns.Add("Index")
		.AllowSizing = False
		.Width = 48
		.FormatColumn = "(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)"
		.Def(exCellValueFormat) = 1
		.SortType = SortUserData
		.Position = 0
	End With
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 4"
		.AddItem "Item 5"
		.AddItem "Item 6"
		.AddItem "Item 7"
		.AddItem "Item 8"
		.AddItem "Item 9"
		.AddItem "Item 10"
	End With
	.EndUpdate 
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Grid1_AddItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		With .Items
			.CellSortData(Item,1) = .CellCaption(Item,1)
		End With
	End With
End Sub

With Grid1
	.BeginUpdate 
	.DrawGridLines = exAllLines
	.ColumnAutoResize = True
	.ShowFocusRect = False
	With .Columns.Add("Next")
		.Def(exCellPaddingLeft) = 4
		.Def(exHeaderPaddingLeft) = 4
	End With
	With .Columns.Add("Index")
		.AllowSizing = False
		.Width = 48
		.FormatColumn = "(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)"
		.Def(exCellValueFormat) = 1
		.SortType = SortCellData
		.Position = 0
	End With
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 4"
		.AddItem "Item 5"
		.AddItem "Item 6"
		.AddItem "Item 7"
		.AddItem "Item 8"
		.AddItem "Item 9"
		.AddItem "Item 10"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("Sort Index As String (Default)")
		.FormatColumn = "1 index ``"
	End With
	With .Columns.Add("Sort Index As Numeric")
		.ComputedField = "%C0"
		.SortType = SortNumeric
	End With
	With .Items
		.AddItem ""
		.AddItem ""
		.AddItem ""
		.AddItem ""
		.AddItem ""
		.AddItem ""
		.AddItem ""
		.AddItem ""
		.AddItem ""
		.AddItem ""
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = True
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("C+B")
		.AllowSizing = False
		.Width = 48
		.FormatColumn = "` <img>` + ( 1 + (1 index ``) mod 3 ) + `</img> `"
		.Def(exCellValueFormat) = 1
		.Def(exCellHasCheckBox) = True
		.Def(exCellHasButton) = True
		.Def(exCellButtonAutoWidth) = True
	End With
	.Columns.Add ""
	.DrawGridLines = exVLines
	.DefaultItemHeight = 20
	With .Items
		.AddItem ""
		.AddItem ""
		.AddItem ""
		.AddItem ""
		.AddItem ""
		.AddItem ""
		.AddItem ""
		.AddItem ""
	End With
	.EndUpdate 
End With

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub Grid1_ButtonClick(ByVal Item As EXGRIDLibCtl.HITEM,ByVal ColIndex As Long,ByVal Key As Variant)
	With Grid1
		Debug.Print( "ButtonClick" )
		Debug.Print( Item )
		Debug.Print( Key )
	End With
End Sub

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Grid1_CellStateChanged(ByVal Item As EXGRIDLibCtl.HITEM,ByVal ColIndex As Long)
	With Grid1
			Debug.Print( "CellStateChanged" )
		Debug.Print( Item )
	End With
End Sub

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = True
	With .Columns.Add("")
		.AllowSizing = False
		.Width = 32
		.FormatColumn = "1 index ``"
	End With
	With .Columns.Add("Def")
		.AllowSizing = False
		.Width = 48
		.FormatColumn = "`     `"
		.Def(exCellHasCheckBox) = True
		.Def(exCellHasButton) = True
		.Def(exCellButtonAutoWidth) = True
	End With
	.Columns.Add ""
	With .Items
		.AddItem ""
		.AddItem ""
		.AddItem ""
		.AddItem ""
		.AddItem ""
		.AddItem ""
		.AddItem ""
		.AddItem ""
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	With .Columns
		With .Add("Pos")
			.Width = 32
			.AllowSizing = False
			.FormatColumn = "1 index ``"
		End With
		Set var_Editor = .Add("C1").Editor
		With var_Editor
			.EditType = ColorListType
			.ClearItems 
			.AddItem 255,"Red Color"
			.AddItem 16711680,"Blue Color"
			.AddItem 65280,"Green Color"
		End With
		.Add("C2").Editor.EditType = EditTypeEnum.CloneType Or EditTypeEnum.EditType
		.Add("C3").Editor.EditType = EditTypeEnum.CloneType Or EditTypeEnum.EditType
	End With
	With .Items
		h = .AddItem("")
		.CellValue(h,1) = 16711680
		.CellValue(h,2) = 65280
		.CellValue(h,3) = 255
		h = .AddItem("")
		.CellValue(h,1) = 255
		.CellValue(h,2) = 16711680
		.CellValue(h,3) = 65280
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.HasLines = exNoLine
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.ScrollBars = ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exBoth
	.ScrollPos(True) = .Items.ItemCount
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("Names")
		.DisplayFilterButton = True
		.FilterType = exPattern
	End With
	With .Items
		.AddItem "Mantel"
		.AddItem "Mechanik"
		.AddItem "Motor"
		.AddItem "Murks"
		.AddItem "Märchen"
		.AddItem "Möhren"
		.AddItem "Mühle"
		.AddItem "Sérigraphie"
	End With
	.Columns.Item(0).Filter = "*ä*"
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Root")
		.CellValue(h,1) = "A"
		.CellValue(.InsertItem(h,,"Child 1"),1) = "B"
		.CellValue(.InsertItem(h,,"Child 2"),1) = "C"
		.ExpandItem(h) = True
	End With
	.SearchColumnIndex = 1
	Debug.Print( .SearchColumnIndex )
	Debug.Print( .FullPath(.Items.ItemByIndex(2)) )
	.SearchColumnIndex = 0
	Debug.Print( .SearchColumnIndex )
	Debug.Print( .FullPath(.Items.ItemByIndex(2)) )
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarHeight = 0
	.FilterBarPromptVisible = exFilterBarPromptVisible
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.FilterBarPromptPattern = "London"
	.EndUpdate 
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Grid1_AddItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		With .Items
			.SetParent Item,.FindItem(.CellValue(Item,"ReportsTo"),"EmployeeID")
		End With
	End With
End Sub

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "SELECT * FROM Employees ORDER BY ReportsTo","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.Items.ExpandItem(0) = True
	.EndUpdate 
End With

' MouseDown event - Occurs when the user presses a mouse button.
Private Sub Grid1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With Grid1
		i = .ItemFromPoint(-1,-1,c,hit)
		.FullRowSelect = .Columns.Item(c).Data
	End With
End Sub

With Grid1
	.BeginUpdate 
	.HeaderHeight = 22
	.HeaderAppearance = Flat
	.BackColorLock = RGB(240,240,240)
	.BackColorHeader = .BackColorLock
	.HasLines = exNoLine
	.ColumnAutoResize = False
	.SortBarVisible = False
	.AllowGroupBy = True
	.ReadOnly = exReadOnly
	.ShowFocusRect = False
	.CountLockedColumns = 1
	.AutoDrag = exAutoDragScroll
	.SingleSort = False
	.ColumnsAllowSizing = True
	.DrawGridLines = exAllLines
	.GridLineStyle = exGridLinesSolid
	.GridLineColor = RGB(220,220,220)
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.Columns.Item(0).Data = -1
	.Layout = "singlesort=""C5:1"";multiplesort="" C1:2"""
	.EndUpdate 
End With

With Grid1
	.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABJEIQAAYAQGKIYBkAKBQAGaAoDDcMQ5QwAAyDGKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQZonKK3L" & _
"hGCYBgIA="
	.HeaderAppearance = &H1000000
	.Columns.Add 1
	.Columns.Add 2
	.Columns.Add 3
End With

' ItemOleEvent event - Fired when an ActiveX control hosted by an item has fired an event.
Private Sub Grid1_ItemOleEvent(ByVal Item As EXGRIDLibCtl.HITEM,ByVal Ev As EXGRIDLibCtl.IOleEvent)
	With Grid1
		With .Items.ItemObject(Grid1.Items.ItemByIndex(2))
			v = .FormatABC("date(`now`)")
			.Layers.Item("sec").Value = v
			.Layers.Item("min").Value = v
			.Layers.Item("hour").Value = v
		End With
	End With
End Sub

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Grid1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With Grid1
		With .Items.ItemObject(Grid1.Items.ItemByIndex(2))
			.TimerInterval = 1000
		End With
	End With
End Sub

With Grid1
	.BeginUpdate 
	.ScrollBySingleLine = True
	.LinesAtRoot = exLinesAtRoot
	.HasLines = exThinLine
	.ScrollBySingleLine = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Normal Item")
		h = .AddItem("Gauge-Clock Inside")
		.ExpandItem(h) = True
		h = .InsertControlItem(h,"Exontrol.Gauge")
		.ItemHeight(h) = 256
		With .ItemObject(h)
			.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Clock"
			.DefaultLayer(185) = 2
			.Layers.Count = 4
			With .Layers.Item(0)
				.Background.Picture.Name = "vista_clock.png"
			End With
			With .Layers.Item(1)
				.Position = 3
				.Key = "sec"
				.OnDrag = 2
				.Selectable = False
				.Background.Picture.Name = "second-hand.png"
				.ValueToRotateAngle = "((2:=(((1:=( ( (0:=(value < 0 ? floor(value) + 1 - value : value - floor(value))) < 0.5 ? =:0 : (0:= (=:0 - 0.5)) ) * 24 ))  - " & _
"floor(=:1)) * 60 )) - floor(=:2) ) * 360"
				.RotateAngleToValue = "value / 360 / 24 / 60"
			End With
			With .Layers.Item(2)
				.Position = 2
				.Key = "min"
				.OnDrag = 2
				.Selectable = False
				.Background.Picture.Name = "Minute.png"
				.ValueToRotateAngle = "((1:=( ( (0:=(value < 0 ? floor(value) + 1 - value : value - floor(value))) < 0.5 ? =:0 : (0:= (=:0 - 0.5)) ) * 24 ))  - floor(" & _
"=:1)) * 360"
				.RotateAngleToValue = "value / 360 / 24 / 60"
			End With
			With .Layers.Item(3)
				.Position = 1
				.Key = "hour"
				.OnDrag = 2
				.Background.Picture.Name = "Hour.png"
				.ValueToRotateAngle = "2 * 360 * ( (0:=(value < 0 ? floor(value) + 1 - value : value - floor(value))) < 0.5 ? =:0 : (0:= (=:0 - 0.5)) )"
				.RotateAngleToValue = "value / 360 * 0.5"
			End With
			v = .FormatABC("date(`now`)")
			.Layers.Item("sec").Value = v
			.Layers.Item("min").Value = v
			.Layers.Item("hour").Value = v
		End With
		h = .AddItem("Normal Item")
	End With
	.EndUpdate 
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Grid1_AddItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		With .Items
			.CellBackColor(Item,0) = RGB(240,240,240)
			.ItemHasChildren(Item) = True
		End With
	End With
End Sub

With Grid1
	.BeginUpdate 
	.TreeColumnIndex = 0
	.LinesAtRoot = exLinesAtRoot
	.DrawGridLines = exAllLines
	.Columns.Add("C1").FormatColumn = "1 index `A-Z`"
	.Columns.Add("C2").FormatColumn = "1 index ``"
	.Columns.Add("C3").FormatColumn = "1 index ``"
	With .Items
		.AddItem 
		.AddItem 
		h = .AddItem()
		.CellMerge(h,0) = 1
		.FormatCell(h,0) = "`merge cells`"
		.CellHAlignment(h,0) = CenterAlignment
		h = .AddItem()
		.ItemDivider(h) = 0
		.CellHAlignment(h,0) = CenterAlignment
		.FormatCell(h,0) = "`item divider`"
		.AddItem 
		.AddItem 
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	.Columns.Add("Column 1").Width = 256
	.Columns.Add("Column 2").Width = 512
	.DrawGridLines = exAllLines
	.EndUpdate 
End With

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub Grid1_ButtonClick(ByVal Item As EXGRIDLibCtl.HITEM,ByVal ColIndex As Long,ByVal Key As Variant)
	With Grid1
		With .Items
			h = .AddItem("")
			.SelectItem(h) = True
			.EnsureVisibleItem h
		End With
		.FocusColumnIndex = 0
	End With
End Sub

With Grid1
	.BeginUpdate 
	With .Columns.Add("")
		.AllowSizing = False
		.AllowDragging = False
		.AllowSort = False
		.Width = 24
		.Def(exCellHasButton) = True
	End With
	.Columns.Add("Position").FormatColumn = "1 apos `A-Z`"
	.CountLockedColumns = 1
	With .Items
		.AddItem ""
		.AddItem ""
		.AddItem ""
	End With
	.EndUpdate 
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Grid1_Change(ByVal Item As EXGRIDLibCtl.HITEM,ByVal ColIndex As Long,NewValue As Variant)
	With Grid1
		Debug.Print( "FindItem(numeric) is " )
		Debug.Print( NewValue )
		Debug.Print( .Columns.Item(0).Editor.FindItem(NewValue) )
	End With
End Sub

With Grid1
	.BeginUpdate 
	With .Columns.Add("DropDownList")
		With .Editor
			.EditType = DropDownListType
			.AddItem 1,"Ken Robinson"
			.AddItem 2,"Dave Nichols"
			.AddItem 3,"Zane Thomas"
			.AddItem 4,"James Shields"
		End With
	End With
	With .Columns.Add("CellValue")
		.FormatColumn = "%0"
		.Def(exCellBackColor) = 15790320
		.Def(exHeaderBackColor) = .Def(exCellBackColor)
	End With
	With .Columns.Add("CellCaption")
		.FormatColumn = "%C0"
		.Def(exCellBackColor) = 15790320
		.Def(exHeaderBackColor) = .Def(exCellBackColor)
	End With
	With .Items
		.AddItem 1
		.AddItem Grid1.Columns.Item(0).Editor.FindItem("Zane Thomas")
		.AddItem 2
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Columns.Add "Default"
	With .Items
		.CellImages(.AddItem(0),0) = "1"
		.CellHasCheckBox(.AddItem(1),0) = True
		.CellImages(.AddItem(2),0) = "1"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	With .Columns.Add("Default")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
		.AllowSort = False
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.HasLines = exNoLine
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = False
	.AllowGroupBy = True
	.Layout = "singlesort=""C5:1"";multiplesort="" C1:2"""
	.EndUpdate 
End With

' LayoutChanged event - Occurs when column's position or column's size is changed.
Private Sub Grid1_LayoutChanged()
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.HasLines = exNoLine
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	With .Columns.Add("Position")
		.FormatColumn = "(0:= (1 rpos '')) right ( ( 1:= ( =:0 rfind `.` ) ) != -1 ? =:1 : len(=:0))"
		.Visible = False
	End With
	With .Columns.Add("Position")
		.FormatColumn = "(1 rpos '') contains '.'"
		.Visible = False
	End With
	.ConditionalFormats.Add("(%C13 mod 2) != 0").BackColor = RGB(240,240,240)
	.ConditionalFormats.Add("%C14 = 0").BackColor = RGB(190,190,190)
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.HeaderAppearance = Etched
	.HeaderHeight = 24
	.ScrollBySingleLine = True
	.DrawGridLines = exRowLines
	.Columns.Add("Value").Def(exCellValueFormat) = 1
	With .Columns.Add("FormatColumn = `%0` ~ CellValue")
		.FormatColumn = "%0"
		.Def(exCellSingleLine) = False
	End With
	With .Columns.Add("FormatColumn = `%C0`~ CellCaption")
		.FormatColumn = "%C0"
		.Def(exCellSingleLine) = False
	End With
	With .Items
		.AddItem 1.1234
		.CellValueFormat(.AddItem("<sha ;;0>This <fgcolor=FF0000>is a <s><b>HTM</fgcolor>L</b> text</s>."),0) = exHTML
		With .CellEditor(.AddItem(3))
			.EditType = CheckListType
			.AddItem 1,"Border"
			.AddItem 2,"Thick"
			.AddItem 4,"Shadow"
		End With
		.FormatCell(.AddItem(10000),0) = "`<b>` + currency(value)"
	End With
	.EndUpdate 
End With

' LayoutChanged event - Occurs when column's position or column's size is changed.
Private Sub Grid1_LayoutChanged()
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.HasLines = exNoLine
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	With .Columns.Add("Position")
		.FormatColumn = "(0:= (1 rpos '')) left ( ( 1:= ( =:0 lfind `.` ) ) != -1 ? =:1 : len(=:0))"
		.Visible = False
	End With
	With .Columns.Add("Position")
		.FormatColumn = "(1 rpos '') contains '.'"
		.Visible = False
	End With
	.ConditionalFormats.Add("(%C13 mod 2) != 0").BackColor = RGB(240,240,240)
	.ConditionalFormats.Add("%C14 = 0").BackColor = RGB(190,190,190)
	.EndUpdate 
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Grid1_AddGroupItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		.Items.ItemBackColor(Item) = RGB(190,190,190)
	End With
End Sub

With Grid1
	.BeginUpdate 
	.HasLines = exNoLine
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	.EndUpdate 
End With

' LayoutChanged event - Occurs when column's position or column's size is changed.
Private Sub Grid1_LayoutChanged()
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.HasLines = exNoLine
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	With .Columns.Add("Position")
		.FormatColumn = "(0:= (1 rpos '')) left ( ( 1:= ( =:0 lfind `.` ) ) != -1 ? =:1 : len(=:0))"
		.Visible = False
	End With
	With .Columns.Add("Position")
		.FormatColumn = "(1 rpos '') contains '.'"
		.Visible = False
	End With
	.ConditionalFormats.Add("%C14 = 0").BackColor = RGB(190,190,190)
	.EndUpdate 
End With

' LayoutChanged event - Occurs when column's position or column's size is changed.
Private Sub Grid1_LayoutChanged()
	With Grid1
		.Refresh 
	End With
End Sub

' Sort event - Fired when the control sorts a column.
Private Sub Grid1_Sort()
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	With .Columns.Add("P1")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Columns.Add("P2")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
	End With
	With .Columns.Add("Position")
		.FormatColumn = "(0:= (1 rpos '')) left ( ( 1:= ( =:0 lfind `.` ) ) != -1 ? =:1 : len(=:0))"
		.Visible = False
	End With
	.ConditionalFormats.Add("(%C2 mod 2) != 0").BackColor = RGB(240,240,240)
	.EndUpdate 
End With

' LayoutChanged event - Occurs when column's position or column's size is changed.
Private Sub Grid1_LayoutChanged()
	With Grid1
		.Refresh 
	End With
End Sub

' Sort event - Fired when the control sorts a column.
Private Sub Grid1_Sort()
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.HasLines = exNoLine
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	With .Columns.Add("Position")
		.FormatColumn = "1 apos ''"
		.Visible = False
	End With
	.ConditionalFormats.Add("(%C13 mod 5) = 1").BackColor = RGB(128,128,128)
	.ConditionalFormats.Add("(%C13 mod 5) = 2").BackColor = RGB(164,164,164)
	.ConditionalFormats.Add("(%C13 mod 5) = 3").BackColor = RGB(190,190,190)
	.ConditionalFormats.Add("(%C13 mod 5) = 4").BackColor = RGB(240,240,240)
	.EndUpdate 
End With

' LayoutChanged event - Occurs when column's position or column's size is changed.
Private Sub Grid1_LayoutChanged()
	With Grid1
		.Refresh 
	End With
End Sub

' Sort event - Fired when the control sorts a column.
Private Sub Grid1_Sort()
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.HasLines = exNoLine
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	With .Columns.Add("Position")
		.FormatColumn = "1 apos ''"
		.Visible = False
	End With
	.ConditionalFormats.Add("(%C13 mod 4) = 0").BackColor = RGB(240,240,240)
	.EndUpdate 
End With

' LayoutChanged event - Occurs when column's position or column's size is changed.
Private Sub Grid1_LayoutChanged()
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.HasLines = exNoLine
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	With .Columns.Add("Position")
		.FormatColumn = "(0:= (1 rpos '')) left ( ( 1:= ( =:0 lfind `.` ) ) != -1 ? =:1 : len(=:0))"
		.Visible = False
	End With
	.ConditionalFormats.Add("(%C13 mod 2) != 0").BackColor = RGB(240,240,240)
	.EndUpdate 
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Grid1_AddGroupItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		With .Items
			.ItemDivider(Item) = -1
			.EnableItem(Item) = False
			.CellValueFormat(Item,Grid1.TreeColumnIndex) = exHTML
			.FormatCell(Item,Grid1.TreeColumnIndex) = "%1"
			.CellValueFormat(Item,"Freight") = ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
			.CellValue(Item,"Freight") = "sum(current,dir,%6)"
			.FormatCell(Item,"Freight") = "`<b>` + currency(value)"
		End With
	End With
End Sub

With Grid1
	.BeginUpdate 
	.SelBackMode = exTransparent
	.BackColorSortBar = RGB(240,240,240)
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = SortAscending
	.LinesAtRoot = exGroupLinesOutside
	.Columns.Item("ShipVia").DisplayFilterButton = True
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SingleSort = False
	.AllowGroupBy = True
	.SortBarVisible = True
	.BackColorSortBar = .BackColor
	.Columns.Item(5).SortOrder = SortAscending
	.Columns.Item(6).FormatColumn = "currency(value)"
	With .Items
		.LockedItemCount(exTop) = 1
		h = .LockedItem(exTop,0)
		.ItemBackColor(h) = RGB(240,240,240)
		.CellBackColor(h,6) = RGB(190,190,190)
		.CellValue(h,6) = "sum(all,rec,%6)"
		.CellValueFormat(h,6) = exTotalField
	End With
	.Refresh 
	.EndUpdate 
End With

' KeyPress event - Occurs when the user presses and releases an ANSI key.
Private Sub Grid1_KeyPress(KeyAscii As Integer)
	With Grid1
		Debug.Print( "if .Editying != 0 then" )
		Debug.Print( .Editing )
		KeyAscii = 0
	End With
End Sub

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	With .Columns
		.Add "Tasks"
		With .Add("Date")
			.Editor.EditType = DateType
			.Width = 128
		End With
	End With
	With .Items
		.CellValue(.AddItem("Item 1"),1) = #9/21/2006#
		.CellValue(.AddItem("Item 2"),1) = #12/22/2015#
		.CellValue(.AddItem("Item 3"),1) = #1/10/2015#
	End With
	.EndUpdate 
End With

' MouseDown event - Occurs when the user presses a mouse button.
Private Sub Grid1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
	' Items.EnsureVisibleItem(ItemFromPoint(-1,-1,c,hit))
End Sub

With Grid1
	.BeginUpdate 
	.TreeColumnIndex = -1
	.SelForeColor = .ForeColor
	With .Columns.Add("Buttons")
		.Alignment = CenterAlignment
		.Def(exCellHasButton) = True
	End With
	With .Items
		.AddItem "Button A"
		.AddItem "Button B"
		.AddItem "Button C"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	With .Columns.Item("ShipVia")
		.Def(exCellBackColor) = 15790320
		.Position = 1
		.Width = 96
		With .Editor
			.EditType = DropDownListType
			.AddItem 1,"Speedy Express"
			.AddItem 2,"United Package"
			.AddItem 3,"Federal Shipping"
		End With
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.Layout = "gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujIAGMcj0gjcGk8QhkQgUOjUEjsfkMFAB2lEnhRihcYjUvnsykQAO8oMkTNEtG" & _
"gAGUwn0uoEIhUMh0QiUOisXiE7rEyl8jAElokptYAllmpcCtMmjE3mU6jdzrUGoUKttGvFJs90oFPhVRh1Twg4wtaptco9fiMTsdIvcxw1Nkl2hUOlVwlsvnmayFAmtH" & _
"nETuWm0lAv+eAGCzFK10zp1QqVUAGOvkvuuSr0YsMUi2Y0tZ4FAztt0FvuNa23Kvt2m0YnMt5No6uxwOq0eP5cGxAAxQAxgAGwAqu/q1blHDsGW49lzPUq9qtko58r8K" & _
"rvc/LrPA7LWvw2ChpQ2j7Om7kBPK870hu+6ZQE4SJvmsT6u0x8BOa/iUP8jUANNATUrxAsKIFATvQU8DCL5B7dMWlr1u2gQZvgrsMMrDSyQ4vkcv02T+tEjUcyC1C7uw" & _
"1kVABISgwSosXq1JLyRm9EaycqqDQuyjisu+0bvY5i3udEMjTIvkuQHFEmzHNkWymwcqtNNkIN2jUbMeGsdMm4j6R/AyZT7IcztC6M+r5Qs2yYvUx0ZOTZypBqBUZPEa" & _
"Max71y6+MeTBDdBoFTjjv2z80Oi9a+VJE9HSA01SUlBbw1Ww8sPSqtFNNCdOx3L9AuQx9eVLIlUJbCa+WHVrV0fYUEMBF06UqAFh0xLLCT7abHV7P8MuNQUnW3YlDugl" & _
"rfNNcVlrzV6s3FWVKMfcVrPSq6rva0wcz8+Ue2/YK+XzQ0QUQlt83/JTr2ZdiZYBKNoTm2rH4ZedzSckqGDqAA2tEk7CSQmKEJKgWMY5CmQJlkaZYsAGMY0liFJYqKID" & _
"xhSpjCu0vUBQappOgSJZUhlBtTmyJIEqaBZVljRZe8yMZnoMl4SjQRI3qal3U7OjqPpOXNFmIAadCiHIkiDV6RjOla7puFKFnjK5/ta7Z6t6GIYkqEIQ1NmqWgIA="
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.SingleSort = False
	.Columns.Add "C0"
	.Columns.Add("C1").SortOrder = SortAscending
	.Columns.Add "C2"
	With CreateObject("Exontrol.Print")
		Debug.Print( .Decode64TextW(Grid1.Layout) )
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.SingleSort = False
	.Columns.Add "C0"
	.Columns.Add "C1"
	.Columns.Add "C2"
	.Layout = "multiplesort=""C2:1 C1:2 C0:2"""
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.EndUpdate 
	With CreateObject("Exontrol.Print")
		.Options = "FitToPage =2 x 1"
		.PrintExt = Grid1.Object
		.Preview 
	End With
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.EndUpdate 
	With CreateObject("Exontrol.Print")
		.Options = "FitToPage = x 2"
		.PrintExt = Grid1.Object
		.Preview 
	End With
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.EndUpdate 
	With CreateObject("Exontrol.Print")
		.Options = "FitToPage = 2 x"
		.PrintExt = Grid1.Object
		.Preview 
	End With
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.EndUpdate 
	With CreateObject("Exontrol.Print")
		.Options = "FitToPage = 50%"
		.PrintExt = Grid1.Object
		.Preview 
	End With
End With

' LayoutChanged event - Occurs when column's position or column's size is changed.
Private Sub Grid1_LayoutChanged()
	With Grid1
		Debug.Print( "Column-Expanded" )
		Debug.Print( .Columns.Item("C0").Expanded )
	End With
End Sub

With Grid1
	.BeginUpdate 
	.ShowFocusRect = False
	.ColumnAutoResize = False
	.DrawGridLines = exAllLines
	.BackColorLevelHeader = .BackColor
	With .Columns
		With .Add("C0")
			.ExpandColumns = "0,1,2"
			.DisplayExpandButton = True
		End With
		.Add "C1"
		.Add "C2"
	End With
	With .Items
		h = .AddItem("Cell 0.0")
		.CellValue(h,1) = "Cell 0.1"
		.CellValue(h,2) = "Cell 0.2"
		h = .AddItem("Cell 1.0")
		.CellValue(h,1) = "Cell 1.1"
		.CellValue(h,2) = "Cell 1.2"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	.DrawGridLines = exAllLines
	.BackColorLevelHeader = .BackColor
	With .Columns
		With .Add("C0")
			.ExpandColumns = "0,1,2"
			.DisplayExpandButton = True
		End With
		.Add "C1"
		.Add "C2"
	End With
	With .Items
		h = .AddItem("Cell 0.0")
		.CellValue(h,1) = "Cell 0.1"
		.CellValue(h,2) = "Cell 0.2"
		h = .AddItem("Cell 1.0")
		.CellValue(h,1) = "Cell 1.1"
		.CellValue(h,2) = "Cell 1.2"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	.DrawGridLines = exAllLines
	.BackColorLevelHeader = .BackColor
	With .Columns
		With .Add("C0")
			.ExpandColumns = "1,2"
			.DisplayExpandButton = True
		End With
		.Add "C1"
		.Add "C2"
		.Add "C3"
		With .Add("C4")
			.ExpandColumns = "5,6"
			.DisplayExpandButton = True
		End With
		.Add "C5"
		With .Add("C6")
			.ExpandColumns = "6,7"
			.DisplayExpandButton = True
		End With
		.Add "C7"
	End With
	.EndUpdate 
	.Columns.Item("C4").Expanded = False
End With

' Edit event - Occurs just before editing the focused cell.
Private Sub Grid1_Edit(ByVal Item As EXGRIDLibCtl.HITEM,ByVal ColIndex As Long,Cancel As Boolean)
	With Grid1
		Cancel = True
	End With
End Sub

With Grid1
	.BeginUpdate 
	With .Columns.Add("Editor").Editor
		.EditType = CheckListType
		.AddItem 1,"One"
		.AddItem 2,"Two"
	End With
	With .Columns.Add("Check")
		With .Editor
			.EditType = CheckValueType
			.Option(exCheckValue1) = 2
		End With
	End With
	With .Items
		.CellValue(.AddItem(1),1) = 0
		.CellValue(.AddItem(2),1) = 1
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("Locked-Check")
		With .Editor
			.EditType = CheckValueType
			.Option(exCheckValue1) = 2
			.Locked = True
		End With
	End With
	With .Columns.Add("Unlocked-Check")
		With .Editor
			.EditType = CheckValueType
			.Option(exCheckValue2) = 1
		End With
	End With
	With .Items
		.CellValue(.AddItem(1),1) = 0
		.CellValue(.AddItem(0),1) = 1
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("")
		.Caption = ""
		.HTMLCaption = "Column"
	End With
	With .Items
		.CellToolTip(.AddItem("tooltip w/h different title"),0) = "<c><b><fgcolor=FF0000>Title</fgcolor></b><br>This is bit of text that's shown when the user hovers the cell. This shows the tit" & _
"le centered with a different color."
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("")
		.Caption = "This is the title"
		.HTMLCaption = "Column"
	End With
	With .Items
		.CellToolTip(.AddItem("tooltip w/h different title"),0) = "This is bit of text that's shown when the user hovers the cell."
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns
		.Add "C1"
		.Add "C2"
	End With
	With .Items
		h = .AddItem("tooltip w/h caption")
		.CellToolTip(h,0) = "This is bit of text that's shown when the user hovers the cell. This shows the column's caption in the title."
		.CellValue(h,1) = "tooltip no caption"
		.CellToolTip(h,1) = "This is bit of text that's shown when the user hovers the cell. This shows no column's caption in the title."
	End With
	With .Columns.Item("C2")
		.HTMLCaption = .Caption
		.Caption = ""
	End With
	.EndUpdate 
End With

' RClick event - Fired when right mouse button is clicked
Private Sub Grid1_RClick()
	With Grid1
		i = .ItemFromPoint(-1,-1,c,hit)
		.Columns.Item(c).ShowFilter "-1,-1,128,128"
	End With
End Sub

With Grid1
	.BeginUpdate 
	.ShowFocusRect = False
	With .Columns.Add("Items ")
		.DisplayFilterPattern = False
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	End With
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
	End With
	.EndUpdate 
End With

' ColumnClick event - Fired after the user clicks on column's header.
Private Sub Grid1_ColumnClick(ByVal Column As EXGRIDLibCtl.IColumn)
	' Column.SortOrder = 1
	With Grid1
		.SortOnClick = exDefaultSort
		.Columns.Item("Sort").SortOrder = SortAscending
		.SortOnClick = exUserSort
	End With
End Sub

With Grid1
	.BeginUpdate 
	.SortOnClick = exUserSort
	.Columns.Add "Items"
	.Columns.Add("Sort").Visible = False
	With .Items
		.CellValue(.AddItem("Item 1 (3)"),1) = 3
		.CellValue(.AddItem("Item 2 (1)"),1) = 1
		.CellValue(.AddItem("Item 3 (2)"),1) = 2
	End With
	.EndUpdate 
End With

' ColumnClick event - Fired after the user clicks on column's header.
Private Sub Grid1_ColumnClick(ByVal Column As EXGRIDLibCtl.IColumn)
	' Column.SortOrder = 1
	With Grid1
		.Items.SortChildren 0,"Sort",True
	End With
End Sub

With Grid1
	.BeginUpdate 
	.SortOnClick = exUserSort
	.Columns.Add "Items"
	.Columns.Add("Sort").Visible = False
	With .Items
		.CellValue(.AddItem("Item 1 (3)"),1) = 3
		.CellValue(.AddItem("Item 2 (1)"),1) = 1
		.CellValue(.AddItem("Item 3 (2)"),1) = 2
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.DefaultItemHeight = 22
	.TreeColumnIndex = -1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = .BackColor
	.Background(exCursorHoverCellButton) = &H1000000
	With .Columns.Add("Buttons")
		.Def(exCellHasButton) = True
		.Def(exCellValueFormat) = 1
		.Alignment = CenterAlignment
		.HeaderAlignment = CenterAlignment
	End With
	With .Items
		.AddItem "Button <b>1</b>"
		.AddItem "Button <b>2</b>"
		.AddItem "Button <b>3</b>"
	End With
	.EndUpdate 
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Grid1_AddItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		With .Items
			.CellValue(Item,0) = "Button <b>A</b>"
			.CellValue(Item,1) = "Button <b>B</b>"
		End With
	End With
End Sub

With Grid1
	.BeginUpdate 
	.DefaultItemHeight = 22
	.TreeColumnIndex = -1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = .BackColor
	.Background(exCursorHoverCellButton) = -1
	With .Columns.Add("A")
		.Def(exCellHasButton) = True
		.Def(exCellValueFormat) = 1
		.Alignment = CenterAlignment
		.HeaderAlignment = CenterAlignment
	End With
	With .Columns.Add("B")
		.Def(exCellHasButton) = True
		.Def(exCellValueFormat) = 1
		.Alignment = CenterAlignment
		.HeaderAlignment = CenterAlignment
	End With
	.Columns.Add("").Position = 1
	With .Items
		.CellEnabled(.AddItem(""),1) = False
		.AddItem ""
		.AddItem ""
	End With
	.EndUpdate 
End With

' OLEStartDrag event - Occurs when the OLEDrag method is called.
Private Sub Grid1_OLEStartDrag(ByVal Data As EXGRIDLibCtl.IExDataObject,AllowedEffects As Long)
	' Data.SetData("your data to drag")
	With Grid1
		AllowedEffects = 2
	End With
End Sub

With Grid1
	.BeginUpdate 
	.OLEDropMode = exOLEDropManual
	.ColumnAutoResize = False
	.DefaultItemHeight = 22
	.HeaderHeight = .DefaultItemHeight
	.Columns.Add("Default").Width = 128
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 4"
		.AddItem "Item 5"
	End With
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAChABakMACAADACAxRDQNABQKAAzQFAYaBiG6GAAGEaRYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQIhsC4JUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDB" & _
"KTjMLaYgkIIlVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLx" & _
"PF2MY1HWYxVj2Jw3DuRJonKYB5lKAYkkYdA6hyDIjBkApaFoAAhBMfYxiGNAkFECZnm4YQBgiOgDl2URSE4KAEj2AJKigFgGgGYIIAyPQ6CCRogAAOxhAMSgSDgIRDhY" & _
"FoFmGCBmBQOAMjgdgQDsUITEIIg5iISAEmIOBigiJgqgqYhoFyVILyyMgyDmYxDg4rBjgiZg6g0Dh4kiTIMGMKAwmgOQkEkFhGhGZIJAoPoQAyQ4mE6BhlAkRgXhODoZ" & _
"C0A4Pg6KRmCSFplkkdheDmJYTioVgACOY4uGaDwmgmJhqg8JlWmOGRmGkChyhyZxJAobYbmMI4yHqFQnkmdh+2RYp4DMIZ5gaBohmiCYGB+IJOmoNhtiPXZGG2I1tgyb" & _
"4lmgGhmhqJt0Fyb4gk8CtsCiahKhYH4oXiAohiUKpKjaLt+goDJxiyaZqlaNot4OTJx3gKp2iiL5sAsBoov+KgMnOMZrisJpKjLjocnPeBLEaRI0m0SxWkSNBPEoDJ1j" & _
"abJrHaXo35obOZC2OximaOZugsYpi3ga42mKO5vAuRpijsTxqAyd49m8S5mnqPuqFyd4gk+DAGn6QJwEwFp+kAT+BnmQpwgwNwOkPtYsnnrgsFcEpFnGDBnBKRRPiwUw" & _
"ckecgMgcIpHGMKQwnuSZygyJ1/HKOgMnyS5zAyRwykycw5g4Eg0jCA57DqTpzkydw+kIDR9AUCY9A2HQXBIUh0g0JRJ5aUxmnQZIPnkUgvDUI5tFcVoPjUOB+A4QBAIC" & _
"A"
		.Add 2,"gBFLBCJwBAEHhEJAAChABC8MACAADACAxRDQNABQKAAzQFAYaBiG6GAAGEaRYgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzX" & _
"IUBxAAqXZZFUaKAgOMJDTLBAzUTCQbR7HiQYyBeCQOo+VoaSACEIlAZJRjoOo5DJGGQILlQJqyYrpaAxIgkEJuTqGoQaXgle53PJeLpXW5Nez9P7AMBwK7bbaqeTyXa+" & _
"eDtJhif4cXjIMhyLI8UxXEKOL7jDSYPgqK48QhCEJQPQ9EyXJqnahoemCeRXBZ+aqxbBsCwCep0YBeNr3HaNaz3PK/brtWxMDpeA5IYhhF7WdZFR4tMrOdAtHL9FyPJ5" & _
"TFicgXnoTAKAsRpHPeVhrAUd4LkmY5yj+fQ+i8L4zk+Y5vjCe4oD6ZoNhSRxiisVRKg+T5vnWfB6h6J5yAIf4fieWJFHyHZHHSTAygyAociMKBKEKBIeCiCZyHYFAnCA" & _
"B4mBeBQJlgRIegOCgYCySAgh2WAkgINAMmMNIgCcCYoGYLoLmKaIshqCgMliEICgmDRDEiUQmkmAhWDCD5inicIVg4TQYloJg2g2ExYhoJZJEidIThMCQSFyEwkGKaRK" & _
"FEJQJBkOhLCUJIDFoRiKBmBJhDeDZZDoPAlgmQhghaGZimmHhphqZopDoYw3GYEgFgGHROGOFJkCSSQCDoTAkiSaQ6C6IBJFkPIUCSJ5CDoeQ5CcVZ5gWHROmONJsCMS" & _
"ISByEFyjIRoYiaKYaG6HonEiOhcguJQIHoRJsh0WBWB2JIpiqShKi0OwqnqRouiyTpGhGBxiYIZKOhqGp2j4aRaAqZL3FAECAgA=="
	End With
	.Background(exDragDropBefore) = &H1000000
	.Background(exDragDropAfter) = &H2000000
	.Background(exDragDropForeColor) = RGB(0,0,1)
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.SingleSort = False
	With .Columns
		.Add("Index").FormatColumn = "1 index ``"
		.Add("Date").SortType = SortDate
		With .Add("Time")
			.SortType = SortTime
			.FormatColumn = "time(value)"
		End With
	End With
	With .Items
		h = .AddItem(0)
		.CellValue(h,1) = #1/1/2001#
		.CellValue(h,2) = #1/1/2001 10:00:00 AM#
		h = .AddItem(0)
		.CellValue(h,1) = #12/31/2000#
		.CellValue(h,2) = #1/1/2001 10:00:00 AM#
		h = .AddItem(0)
		.CellValue(h,1) = #1/1/2001#
		.CellValue(h,2) = #1/1/2001 6:00:00 AM#
		h = .AddItem(0)
		.CellValue(h,1) = #12/31/2000#
		.CellValue(h,2) = #1/1/2001 8:00:00 AM#
		h = .AddItem(0)
		.CellValue(h,1) = #1/1/2001#
		.CellValue(h,2) = #1/1/2001 8:00:00 AM#
		h = .AddItem(0)
		.CellValue(h,1) = #12/31/2000#
		.CellValue(h,2) = #1/1/2001 6:00:00 AM#
	End With
	.Layout = "multiplesort=""C1:1 C2:1"""
	.EndUpdate 
End With

' MouseUp event - Occurs when the user releases a mouse button.
Private Sub Grid1_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
	' Items.ToString = "Check[chk],[sep],Item 1,Item 2,Item 3"
	With Grid1
		With CreateObject("Exontrol.ContextMenu")
			
		End With
	End With
End Sub

With Grid1
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.ContinueColumnScroll = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.ReadOnly = exReadOnly
End With

With Grid1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAChABOUGACAADACAxRDQNABQKAAzQFAYbBkGqGAAGIYxYgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYRhkEYgEiONoaDJCM4wH" & _
"IMQxHCKTZRkGYpajOPobUbGUywHRcRRvH6EZQGWg6GjqK43SCEEZhJBNGyTJ6BZbGURbCqSLAwWZAYy2RCMRxDJqLKypSwKPoGKosS5OUwzHItaRtHaJJAwKZ6ApGQpR" & _
"VTAYxVfC1PzkACma4nS7oXraVJFVZTdYwTh+JABTzGLpnKw7FhGa5pABpdq0RTuOZdAbPMoyXBrXqqB46UCOGg5HRWWwHR7ZIquap9JzfCq5cRbWr5BBOPaBYKwdD1CB" & _
"+iMVRnlQRY4hafZwAMH5Pl4XQnjCEBECSIBpDGHQOicIwtBIBpmiWEIJj6eJQloEgomafgyGGCI6kKYZQH+igGAKAJgEgFgGgGYIFlCf4CmCSA2A6A5hAgRgEgQYRIFY" & _
"FIEmEaBmBmBghigdgQgcIZogYC4ICIKB6CSCRhiiHgogWIooi4F4AmKaIaDCDBihiTg0gsIIYmYOoOmOSJ2D6AZQBAgI="
		.Add 2,"gBFLBCJwBAEHhEJAAChABdUIQAAYAQGKIaBoAKBQAGaAoDDYMg1QwAAxDGLEEwsACEIrjKCVIgkHYJRjGEZxNCMIhiGAaQChEZYHgkMomDAOEgyHKcEgJGyEQgkOa4a" & _
"jCKYrSzAcrwTI4cRVHiQZygOZ4DBSOY8VBAcQweItJhrKqVRgriitNQjCyjZCpOaIDooAJmRZNNISBBIEQSKA0TDOQ5TSKUMYhOZTBBEbbMNBtBIUIRpajbMBiFywUxU" & _
"OJYXhmG4dR7IMhyLI8UxXFo7P7mOZZXjmO49T7Kc70LQ9CyHJKnabpWoaXj2VZZV7Mda2DTNSzPKK1bZpG4bTouKZ5WjfN72fgeCzrF7HchyPJcXxnG4ZAMBA"
		.Add 3,"gBFLBCJwBAEHhEJAAChABL0GACAADACAxRDQNABQKAAzQFAYbBkGqGAAGIYxYgmFgAQhFcZQSpEEg7BKMYwjOJgEgmEQxDANIBQSKoaQiGQYRhkEYpFiONoXDJCM4wH" & _
"IMQxHCKTZRkGYpajOPobUbGUygBRdExvEyEZQGWg6GjqK43SCEEZhJBNGyfH6dBpEWT7ChENQwWLLFoRDIcQyXCytIDter4boGKosS5OUwzGAtaRvHaJJAwKZ6ApGQpR" & _
"VTAYxUdC1HTjJiEa4nS7oXraVJFVZTdYwTh+JABTzGKbsSycKqWaqkABZeoWbTuOZdAbPMoyXBrXgOLYzUCOGg5HRWWwHR7ZIq0Pg9Hqaa4bVbIVxbcAGH6BQa6J5hEB" & _
"ECSIBpDGHQOicIwtBIBpmhqEIJj2eJQloEgokiegyGGCI6kKZ5BnefA+D8L4flOa52nufg+g+f5fnPFB/ooBZ1omSAWASAJgGgJgJgIIIoDYAIDCCaBFnuBAhCgOgUgU" & _
"YIoF4GIBiGKBuAcfohmgNgdggX54g4JB/F+GImCqCpikiNguguUAQICA="
		.Add 4,"gBFLBCJwBAEHhEJAAChABBUGACAADACAxRDQNABQKAAzQFAYbBkGqGAAGIYxYgmFgAQhFcZQSpEEg7BKMYwjOJgCgmEQxDANMiwGKoaQiGQYRhkEYgFiONoaDJCM4wH" & _
"IMQxHCKTZRkGYpajOPobUbAYQQSAkEgpECbZqoEZaDoaOorTZINJ0VR1Ox5KKfZyGURZPqOEQ1DBZEI2RZUbxDJquLhACj7AjeZZtRJZVp2TY9eQ3LC3aYhGqwAwSFpJ" & _
"VjUEBgRBJIDSMY6DpOIxaEgNZpwEITOTxUK0EhRLy5agDCJ1QrCdanahqOpaXpmW5dV7YNh2LTnfzXNq3bhuO5bXqOd59X7fN54Dg+D4LRLHbpxXIcXqvFaZZDnOb4To" & _
"PEuAZUmqcB2B2DoHGuN5Tm6d46lsPwfhOS5mnOeg9DqCAIICA"
	End With
	.LinesAtRoot = exGroupLinesAtRoot
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	.DefaultItemHeight = 22
	.Columns.Add ""
	.Columns.Add("").Def(exCellBackColor) = 33554432
	.Columns.Add ""
	With .Items
		h = .AddItem("Root 1")
		.ItemBackColor(h) = &H1000000
		hx = .SplitCell(h,0)
		.CellValue(0,hx) = "count(current,dir,1)"
		.CellValueFormat(0,hx) = exTotalField
		.FormatCell(0,hx) = "'Childs: ' + value"
		.CellBackColor(0,hx) = &H3000000
		.CellHAlignment(0,hx) = CenterAlignment
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.ItemBackColor(h) = &H4000000
		hx = .SplitCell(h,0)
		.CellValue(0,hx) = "count(current,dir,1)"
		.CellValueFormat(0,hx) = exTotalField
		.FormatCell(0,hx) = "'Childs: ' + value"
		.CellBackColor(0,hx) = &H3000000
		.CellHAlignment(0,hx) = CenterAlignment
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.InsertItem h,,"Child 3"
		.ItemBackColor(.InsertItem(h,,"Child 4")) = &H4000000
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns
		.Add "C1"
		.Add("C2").Position = 1
	End With
	With .Items
		.CellValue(.AddItem("SubItem 1.1"),1) = "SubItem 1.2"
		.CellValue(.AddItem("SubItem 2.1"),1) = "SubItem 2.2"
	End With
	.Columns.Item("C2").SortOrder = SortDescending
	.EndUpdate 
	Debug.Print( "Encoded:" )
	Debug.Print( .Layout )
	With CreateObject("Exontrol.Print")
		Debug.Print( "Decoded: " )
		Debug.Print( .Decode64TextW(Grid1.Layout) )
	End With
End With

With Grid1
	.BeginUpdate 
	.ScrollBySingleLine = True
	.DrawGridLines = exRowLines
	With .Columns.Add("Single-Line")
		.Def(exCellSingleLine) = True
		.Def(exCellValueFormat) = 1
	End With
	With .Columns.Add("Multiple-Lines")
		.Def(exCellSingleLine) = False
		.Def(exCellValueFormat) = 1
	End With
	With .Items
		.CellValue(.AddItem("First-Line<br>Second-Line"),1) = "First-Line<br>Second-Line"
		h = .AddItem("First-Line<br>Second-Line<br>Third-Line")
		.CellSingleLine(h) = exCaptionWordWrap
		.CellHAlignment(h,0) = CenterAlignment
		.ItemDivider(h) = 0
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.DrawGridLines = exRowLines
	.DefaultItemHeight = 36
	.FullRowSelect = exColumnSel
	With .Columns
		With .Add("Column1")
			.Visible = False
			.Editor.EditType = EditType
		End With
		With .Add("Column2")
			.Visible = False
			.Editor.EditType = EditType
		End With
		With .Add("Column3")
			.Visible = False
			.Def(exCellSingleLine) = False
			.Editor.EditType = EditType
		End With
		With .Add("Column4")
			.Alignment = CenterAlignment
			.HeaderAlignment = CenterAlignment
			.Visible = False
			.Def(exCellHasButton) = True
			.Def(exCellButtonAutoWidth) = True
		End With
		With .Add("FormatLevel")
			.FormatLevel = "(0/1),""Information to be shown on the control's header""[a=17][ww]:128,3:128"
			.Def(exCellFormatLevel) = "(0/1),2[a=17][ww]:128,3:128"
		End With
	End With
	With .Items
		h = .AddItem("Cell 1.1")
		.CellValue(h,1) = "Cell 1.2"
		.CellValue(h,2) = "This is just a bit of information on first row"
		.CellValue(h,3) = "Cell 1.4"
		.CellSingleLine(h,3) = exCaptionWordWrap
		h = .AddItem("Cell 2.1")
		.CellValue(h,1) = "Cell 2.2"
		.CellValue(h,2) = "This is just a bit of information on second row"
		.CellValue(h,3) = "Cell 2.4"
	End With
	.EndUpdate 
End With

With Grid1
	Set http = CreateObject("Exontrol.HTTP")
	.PictureDisplay = LowerRight
	.Picture = http.GETImage("http://mail.exontrol.com/images/exontrol.png")
End With

With Grid1
	.BeginUpdate 
	With .Columns
		.Add "Name"
		With .Add("Active")
			.Def(exCellHasCheckBox) = True
			.DisplayFilterButton = True
		End With
		.Add "Type"
		.Add("Mode").FilterType = exFilter
	End With
	With .Items
		h = .AddItem("Item A")
		.CellState(h,1) = 1
		.CellValue(h,2) = "A"
		h = .AddItem("Item B")
		.CellState(h,1) = 0
		.CellValue(h,2) = "B"
		h = .AddItem("Item C")
		.CellState(h,1) = 1
		.CellValue(h,2) = "C"
		.CellValue(h,3) = "None"
		h = .AddItem("Item D")
		.CellState(h,1) = 1
		.CellValue(h,2) = "C"
	End With
	With .Columns.Item(1)
		.FilterType = exCheck
		.Filter = 1
	End With
	With .Columns.Item(2)
		.FilterType = exFilter
		.Filter = "C"
	End With
	With .Columns.Item(3)
		.FilterType = exNonBlanks
	End With
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.TreeColumnIndex = -1
	With .Columns.Add("RTL - Header Caption")
		.HeaderAlignment = &H20000 Or AlignmentEnum.RightAlignment
		.Alignment = &H20000 Or AlignmentEnum.RightAlignment
	End With
	.FullRowSelect = exColumnSel
	With .Items
		.AddItem "RTL - Text Right"
		.CellHAlignment(.AddItem("RTL - Text Center"),0) = &H20000 Or AlignmentEnum.CenterAlignment
		.CellHAlignment(.AddItem("RTL - Text Left"),0) = &H20000
	End With
	.EndUpdate 
End With

With Grid1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Appearance = &H1000000
	.BackColorHeader = &H1000000
	.Background(exBackColorFilter) = &H8000000f
	.Columns.Add("Filter").DisplayFilterButton = True
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Grid1_AddGroupItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		With .Items
			nGroupColumn = .GroupItem(Item)
			.ItemDivider(Item) = -1
			.FormatCell(Item,0) = .FormatCell(Item,nGroupColumn)
			.CellValue(Item,0) = Grid1.Columns.Item(nGroupColumn).GroupByTotalField
			.CellValueFormat(Item,0) = .CellValueFormat(Item,nGroupColumn)
		End With
	End With
End Sub

With Grid1
	.BeginUpdate 
	.ReadOnly = exReadOnly
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	With .Columns.Item(0)
		.AllowGroupBy = False
		.Width = 96
	End With
	.Columns.Item(1).SortOrder = SortAscending
	.LinesAtRoot = exLinesAtRoot
	.EndUpdate 
End With